* OPEN STATA OUTPUT FILE LOG *


log using "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Output/APPENDIX E MODELS.04-20-2021.smcl", replace

   

   ****** ANALYSIS OF MANUSCRIPT MODELS PROGRAM FILE: OMITTING SAMPLE SELECTION BIAS FROM N = 265 UNCONFIRMED CASES, ///
   ****** BUT ACCOUNTING FOR 22 RIGHT-CENSORED CASES CONFIRMED IN FUTURE CONGRESS OBSERVED IN KRAUSE & O'CONNELL DATABASE [NOT THWARTED BY FORMAL PROCEDURES] ****** 
   
   

   
   **** QUANTILE SURVIVAL MODELS: ASYMMETRIC LAPLACE MLE CONDITIONAL DENSITY SURVIVAL MODELS OF CONFIRMATION DECAY ****
 
   **** APPENDIX E: EVALUATING CONDITIONAL EFFECTS OF POSITION ADVANCEMENT & REMPORARY SERVICE RESTRICTIONS ON NOMINEES ATTRIBUTABLE TO THE FEDERAL VACANCIES REFORM ACT OF 1998 ****
 
 

 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
  
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace

 
 
******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************



*** "DUE DILIGENCE" CONTEXTUAL EFFECTS BASED ON POSITION TYPE [TIER 1 VERSUS TIER 2 NOMINEE SLOPE DIFFERENCES] ***
*** NOTE: CONTEXTUAL VARIABLES THAT APPEAR MULTIPLICATIVE/INTERACTION FORM ARE RESCALED TO BE ZERO BOUNDED FOR EASE OF INTERPRETATION OF ADDITIVE BASELINE EFFECTS ***





**** CREATE NEW INTERACTION COVARIATES BETWEEN POLITICAL FRAGMENTATION AND ADMINISTRATIVE REPSONSIVENESS COVARIATES AND POST-FVA TREATED NOMINEE POSITIONS ***




*** INTERACTION WITH PRESIDENT-SENATE FILIBUSTER IDEOLOGICAL DISTANCE ***

generate filipresdistzblewisfva = filipresdistancelewiszb*fvatreated
*

*** INTERACTION WITH SENATE PARTISAN POLARIZATION  ***

generate senpartydiffmedianlewiszbfva = senpartydiffmedianlewiszb*fvatreated
*

*** INTERACTION WITH AGENCY DECISION MAKER INDEPENDENCE [SELIN 1ST DIMENSION AGENCY INSULATION MEASURE]  ***

generate  agencyindzbfva = agencyindzb*fvatreated
*

*** INTERACTION WITH PRESIDENTIAL LOYALTY OF NOMINEE  ***

generate  zloyalmedianzbfva = zloyalmedianzb*fvatreated
*





***************************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************
*******************************************************************************************************************************************************************************




**** OUTCOME EQUATIONS: PREDICT CONFIRMATION DELAY DURATION (IN DAYS) USING SINGLE RECORD EVENTS ****




*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************




*** PART 1: MODELS ANALAYZING OVERALL/TOTAL CONFIRMATION DELAY [CONFIRMATION DATE - NOMINATION DATE] *** 


                                                                                                                                                                                                                                                                    

*** MODEL 1: PREDICTING TIME FROM NOMINATION TO TIME TO CONFIRMATION ON SENATE FLOOR [confdur] - NON-AUGMENTED MODEL (DOES NOT ACCOUNT FOR SAMPLE SELECTION BIAS) ****


 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg confdur  filipresdistancelewiszb filipresdistlewiszbtoplev2 filipresdistzblewisfva  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2 senpartydiffmedianlewiszbfva ///
senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2 agencyindzbfva  soucountagency1  presappnom endsession ///
newpresterm toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zloyalmedianzbfva zmecompmedian zpecompmedian  gender minority fvatreated  ///
admintermyr1  admintermyr2 admintermyr3 bush41 clinton bush43 if confirmselectin==1, ///
failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) seed(123) reps(1000)
*


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use1.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use1.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2A1.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use2.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use2.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-300(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2B1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use3.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use3.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-300(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2C1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use4.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use4.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2D1.eps"

*
* 
*
*graph E.2a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"
*
gr combine FigureE2A1.gph FigureE2B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2acomb.eps"

*graph E.2b
gr combine FigureE2C1.gph FigureE2D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2bcomb.eps"





*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************

*filipresdistzblewisfva  senpartydiffmedianlewiszbfva  agencyindzbfva  zloyalmedianzbfva

 
set matsize 800           
  
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistzblewisfva    * 0.401
*
lincom [q05]filipresdistzblewisfva    * 0.401
*
lincom [q10]filipresdistzblewisfva    * 0.401
*
lincom [q15]filipresdistzblewisfva    * 0.401
*
lincom [q20]filipresdistzblewisfva    * 0.401
*
lincom [q25]filipresdistzblewisfva    * 0.401
*
lincom [q30]filipresdistzblewisfva    * 0.401
*
lincom [q35]filipresdistzblewisfva    * 0.401 
*
lincom [q40]filipresdistzblewisfva    * 0.401
*
lincom [q45]filipresdistzblewisfva    * 0.401
*
lincom [q50]filipresdistzblewisfva    * 0.401
*
lincom [q55]filipresdistzblewisfva    * 0.401
*
lincom [q60]filipresdistzblewisfva    * 0.401
*
lincom [q65]filipresdistzblewisfva    * 0.401
*
lincom [q70]filipresdistzblewisfva    * 0.401
*
lincom [q75]filipresdistzblewisfva    * 0.401
*
lincom [q80]filipresdistzblewisfva    * 0.401
*
lincom [q85]filipresdistzblewisfva    * 0.401
*
lincom [q90]filipresdistzblewisfva    * 0.401
*
lincom [q95]filipresdistzblewisfva    * 0.401
*
lincom [q99]filipresdistzblewisfva    * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use5.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistzblewisfva  * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use5.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-300(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2A2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q05]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q10]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q15]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q20]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q25]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q30]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q35]senpartydiffmedianlewiszbfva * 0.118 
*
lincom [q40]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q45]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q50]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q55]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q60]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q65]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q70]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q75]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q80]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q85]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q90]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q95]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q99]senpartydiffmedianlewiszbfva * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use6.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedianlewiszbfva * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use6.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-150(50)300, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2B2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbfva * 2.673
*
lincom [q05]agencyindzbfva * 2.673
*
lincom [q10]agencyindzbfva * 2.673
*
lincom [q15]agencyindzbfva * 2.673
*
lincom [q20]agencyindzbfva * 2.673
*
lincom [q25]agencyindzbfva * 2.673
*
lincom [q30]agencyindzbfva * 2.673
*
lincom [q35]agencyindzbfva * 2.673 
*
lincom [q40]agencyindzbfva * 2.673
*
lincom [q45]agencyindzbfva * 2.673
*
lincom [q50]agencyindzbfva * 2.673
*
lincom [q55]agencyindzbfva * 2.673
*
lincom [q60]agencyindzbfva * 2.673
*
lincom [q65]agencyindzbfva * 2.673
*
lincom [q70]agencyindzbfva * 2.673
*
lincom [q75]agencyindzbfva * 2.673
*
lincom [q80]agencyindzbfva * 2.673
*
lincom [q85]agencyindzbfva * 2.673
*
lincom [q90]agencyindzbfva * 2.673
*
lincom [q95]agencyindzbfva * 2.673
*
lincom [q99]agencyindzbfva * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use7.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbfva * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use7.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-650(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2C2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbfva  * 4.5765
*
lincom [q05]zloyalmedianzbfva  * 4.5765
*
lincom [q10]zloyalmedianzbfva  * 4.5765
*
lincom [q15]zloyalmedianzbfva  * 4.5765
*
lincom [q20]zloyalmedianzbfva  * 4.5765
*
lincom [q25]zloyalmedianzbfva  * 4.5765
*
lincom [q30]zloyalmedianzbfva  * 4.5765
*
lincom [q35]zloyalmedianzbfva  * 4.5765 
*
lincom [q40]zloyalmedianzbfva  * 4.5765
*
lincom [q45]zloyalmedianzbfva  * 4.5765
*
lincom [q50]zloyalmedianzbfva  * 4.5765
*
lincom [q55]zloyalmedianzbfva  * 4.5765
*
lincom [q60]zloyalmedianzbfva  * 4.5765
*
lincom [q65]zloyalmedianzbfva  * 4.5765
*
lincom [q70]zloyalmedianzbfva  * 4.5765
*
lincom [q75]zloyalmedianzbfva  * 4.5765
*
lincom [q80]zloyalmedianzbfva  * 4.5765
*
lincom [q85]zloyalmedianzbfva  * 4.5765
*
lincom [q90]zloyalmedianzbfva  * 4.5765
*
lincom [q95]zloyalmedianzbfva  * 4.5765
*
lincom [q99]zloyalmedianzbfva  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use8.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbfva * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use8.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-150(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2D2.eps" 
*
*
*
*graph E.2C
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"
*
gr combine FigureE2A2.gph  FigureE2B2.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2ccomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2ccomb.eps" 
*
*graph E.2D
gr combine FigureE2C2.gph  FigureE2D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE2dcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE2dcomb.eps" 






************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

 



*** PART 2: MODELS ANALYZING SENATE COMMITTEE CONFIRMATION DELAY: INFORMATIONAL VETTING [REPORTED OUT OF SENATE COMMITTEE DATE - NOMINATION DATE] *** 

 

 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
  
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace



************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************ 


**** CREATE NEW INTERACTION COVARIATES BETWEEN POLITICAL FRAGMENTATION AND ADMINISTRATIVE REPSONSIVENESS COVARIATES AND POST-FVA TREATED NOMINEE POSITIONS ***



*** INTERACTION WITH PRESIDENT-SENATE FILIBUSTER IDEOLOGICAL DISTANCE ***

generate filipresdistzblewisfva = filipresdistancelewiszb*fvatreated
*

*** INTERACTION WITH SENATE PARTISAN POLARIZATION  ***

generate senpartydiffmedianlewiszbfva = senpartydiffmedianlewiszb*fvatreated
*

*** INTERACTION WITH AGENCY DECISION MAKER INDEPENDENCE [SELIN 1ST DIMENSION AGENCY INSULATION MEASURE]  ***

generate  agencyindzbfva = agencyindzb*fvatreated
*

*** INTERACTION WITH PRESIDENTIAL LOYALTY OF NOMINEE  ***

generate  zloyalmedianzbfva = zloyalmedianzb*fvatreated
*



                                                                                  

*** MODEL 2: PREDICTING TIME FROM NOMINATION TO TIME TO REPORTED OUT OF SENATE COMMITTEE [LEGVETDUR] - NON-AUGMENTED MODEL (DOES NOT ACCOUNT FOR SAMPLE SELECTION BIAS) ****

  
     
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***

laplacereg legvetdur  filipresdistancelewiszb filipresdistlewiszbtoplev2 filipresdistzblewisfva  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2 senpartydiffmedianlewiszbfva ///
senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2 agencyindzbfva  soucountagency1  presappnom endsession ///
newpresterm toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zloyalmedianzbfva zmecompmedian zpecompmedian  gender minority fvatreated  ///
admintermyr1  admintermyr2 admintermyr3 bush41 clinton bush43 if confirmselectin==1, ///
failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) seed(123) reps(1000)
*


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use9.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use9.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3A1.eps" 

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use10.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use10.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3B1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use11.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use11.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-350(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3C1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use12.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use12.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3D1.eps"

*
* 
*
*graph E.3a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"

gr combine FigureE3A1.gph FigureE3B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3acomb.eps"

*graph E.3b

gr combine FigureE3C1.gph FigureE3D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3bcomb.eps"






*******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************


 
set matsize 800           
  
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistzblewisfva    * 0.401
*
lincom [q05]filipresdistzblewisfva    * 0.401
*
lincom [q10]filipresdistzblewisfva    * 0.401
*
lincom [q15]filipresdistzblewisfva    * 0.401
*
lincom [q20]filipresdistzblewisfva    * 0.401
*
lincom [q25]filipresdistzblewisfva    * 0.401
*
lincom [q30]filipresdistzblewisfva    * 0.401
*
lincom [q35]filipresdistzblewisfva    * 0.401 
*
lincom [q40]filipresdistzblewisfva    * 0.401
*
lincom [q45]filipresdistzblewisfva    * 0.401
*
lincom [q50]filipresdistzblewisfva    * 0.401
*
lincom [q55]filipresdistzblewisfva    * 0.401
*
lincom [q60]filipresdistzblewisfva    * 0.401
*
lincom [q65]filipresdistzblewisfva    * 0.401
*
lincom [q70]filipresdistzblewisfva    * 0.401
*
lincom [q75]filipresdistzblewisfva    * 0.401
*
lincom [q80]filipresdistzblewisfva    * 0.401
*
lincom [q85]filipresdistzblewisfva    * 0.401
*
lincom [q90]filipresdistzblewisfva    * 0.401
*
lincom [q95]filipresdistzblewisfva    * 0.401
*
lincom [q99]filipresdistzblewisfva    * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use13.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistzblewisfva  * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use13.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3A2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q05]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q10]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q15]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q20]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q25]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q30]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q35]senpartydiffmedianlewiszbfva * 0.118 
*
lincom [q40]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q45]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q50]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q55]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q60]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q65]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q70]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q75]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q80]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q85]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q90]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q95]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q99]senpartydiffmedianlewiszbfva * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use14.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedianlewiszbfva * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use14.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-150(50)300, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3B2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbfva * 2.673
*
lincom [q05]agencyindzbfva * 2.673
*
lincom [q10]agencyindzbfva * 2.673
*
lincom [q15]agencyindzbfva * 2.673
*
lincom [q20]agencyindzbfva * 2.673
*
lincom [q25]agencyindzbfva * 2.673
*
lincom [q30]agencyindzbfva * 2.673
*
lincom [q35]agencyindzbfva * 2.673 
*
lincom [q40]agencyindzbfva * 2.673
*
lincom [q45]agencyindzbfva * 2.673
*
lincom [q50]agencyindzbfva * 2.673
*
lincom [q55]agencyindzbfva * 2.673
*
lincom [q60]agencyindzbfva * 2.673
*
lincom [q65]agencyindzbfva * 2.673
*
lincom [q70]agencyindzbfva * 2.673
*
lincom [q75]agencyindzbfva * 2.673
*
lincom [q80]agencyindzbfva * 2.673
*
lincom [q85]agencyindzbfva * 2.673
*
lincom [q90]agencyindzbfva * 2.673
*
lincom [q95]agencyindzbfva * 2.673
*
lincom [q99]agencyindzbfva * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use15.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbfva * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use15.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-500(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3C2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbfva  * 4.5765
*
lincom [q05]zloyalmedianzbfva  * 4.5765
*
lincom [q10]zloyalmedianzbfva  * 4.5765
*
lincom [q15]zloyalmedianzbfva  * 4.5765
*
lincom [q20]zloyalmedianzbfva  * 4.5765
*
lincom [q25]zloyalmedianzbfva  * 4.5765
*
lincom [q30]zloyalmedianzbfva  * 4.5765
*
lincom [q35]zloyalmedianzbfva  * 4.5765 
*
lincom [q40]zloyalmedianzbfva  * 4.5765
*
lincom [q45]zloyalmedianzbfva  * 4.5765
*
lincom [q50]zloyalmedianzbfva  * 4.5765
*
lincom [q55]zloyalmedianzbfva  * 4.5765
*
lincom [q60]zloyalmedianzbfva  * 4.5765
*
lincom [q65]zloyalmedianzbfva  * 4.5765
*
lincom [q70]zloyalmedianzbfva  * 4.5765
*
lincom [q75]zloyalmedianzbfva  * 4.5765
*
lincom [q80]zloyalmedianzbfva  * 4.5765
*
lincom [q85]zloyalmedianzbfva  * 4.5765
*
lincom [q90]zloyalmedianzbfva  * 4.5765
*
lincom [q95]zloyalmedianzbfva  * 4.5765
*
lincom [q99]zloyalmedianzbfva  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use16.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbfva * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use16.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-100(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3D2.eps"
*
*
*
*graph E.3C
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"

gr combine FigureE3A2.gph  FigureE3B2.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3ccomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3ccomb.eps"

*
*graph E.3D
gr combine FigureE3C2.gph  FigureE3D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE3dcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE3dcomb.eps"





***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

 
 
 
*** PART 3: MODELS ANALYZING PROCEDURAL VETTING ON SENATE FLOOR STAGE [CONFIRMATION DATE - REPORTED OUT OF SENATE COMMITTEE DATE] *** 


 

 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *
 
  
use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace


*******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************




**** CREATE NEW INTERACTION COVARIATES BETWEEN POLITICAL FRAGMENTATION AND ADMINISTRATIVE REPSONSIVENESS COVARIATES AND POST-FVA TREATED NOMINEE POSITIONS ***



*** INTERACTION WITH PRESIDENT-SENATE FILIBUSTER IDEOLOGICAL DISTANCE ***

generate filipresdistzblewisfva = filipresdistancelewiszb*fvatreated
*

*** INTERACTION WITH SENATE PARTISAN POLARIZATION  ***

generate senpartydiffmedianlewiszbfva = senpartydiffmedianlewiszb*fvatreated
*

*** INTERACTION WITH AGENCY DECISION MAKER INDEPENDENCE [SELIN 1ST DIMENSION AGENCY INSULATION MEASURE]  ***

generate  agencyindzbfva = agencyindzb*fvatreated
*

*** INTERACTION WITH PRESIDENTIAL LOYALTY OF NOMINEE  ***

generate  zloyalmedianzbfva = zloyalmedianzb*fvatreated
*
                                                                                                                                                                                                    
																																																
																																																	

*** MODEL 3: PREDICTING TIME FROM REPORTED OUT OF SENATE COMMITTEE TO CONFIRMATION ON SENATE FLOOR [POLVETDUR] - NON-AUGMENTED MODEL (DOES NOT ACCOUNT FOR SAMPLE SELECTION BIAS) ****


 
*** ASYMMETRIC LAPLACE MLE CONDITIONAL QUANTILE SURVIVAL REGRESSION PERCENTILES ["DUE DILIGENCE" MODEL] ***


laplacereg polvetdur filipresdistancelewiszb filipresdistlewiszbtoplev2 filipresdistzblewisfva  senpartydiffmedianlewiszb senpartydiffmedlewiszbtoplev2 senpartydiffmedianlewiszbfva ///
senworkload senhearing excalendarcong senmajagencyideoloppose senmajagencyideolalign agencyindzb  agencyindzbtoplev2 agencyindzbfva  soucountagency1  presappnom endsession ///
newpresterm toplevel2 zloyalmedianzb zloyalmedianzbtoplev2 zloyalmedianzbfva zmecompmedian zpecompmedian  gender minority fvatreated  ///
admintermyr1  admintermyr2 admintermyr3 bush41 clinton bush43 if confirmselectin==1, ///
failure(confirmobserved) quantiles (1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99) seed(123) reps(1000)
*


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

*** POST-ESTIMATION LINCOMS ONLY FOR CONTEXTUAL POSITION TYPE SLOPE PARAMETER DIFFERENCES FOR "DUE DILIGENCE" COVARIATES ///
*** TO EVALUATE MAX-MIN RANGE IMPACT OF COVARIATE ON CONFIRMATION DELAY OUTCOME VARIABLE ***
  

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
set matsize 800           
 
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q05]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q10]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q15]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q20]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q25]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q30]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q35]filipresdistlewiszbtoplev2   * 0.401 
*
lincom [q40]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q45]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q50]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q55]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q60]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q65]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q70]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q75]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q80]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q85]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q90]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q95]filipresdistlewiszbtoplev2   * 0.401
*
lincom [q99]filipresdistlewiszbtoplev2   * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use17.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistlewiszbtoplev2 * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use17.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4A1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4A1.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q05]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q10]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q15]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q20]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q25]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q30]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q35]senpartydiffmedlewiszbtoplev2 * 0.118 
*
lincom [q40]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q45]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q50]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q55]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q60]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q65]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q70]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q75]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q80]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q85]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q90]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q95]senpartydiffmedlewiszbtoplev2 * 0.118
*
lincom [q99]senpartydiffmedlewiszbtoplev2 * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use18.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedlewiszbtoplev2 * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use18.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-150(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4B1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4B1.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbtoplev2 * 2.673
*
lincom [q05]agencyindzbtoplev2 * 2.673
*
lincom [q10]agencyindzbtoplev2 * 2.673
*
lincom [q15]agencyindzbtoplev2 * 2.673
*
lincom [q20]agencyindzbtoplev2 * 2.673
*
lincom [q25]agencyindzbtoplev2 * 2.673
*
lincom [q30]agencyindzbtoplev2 * 2.673
*
lincom [q35]agencyindzbtoplev2 * 2.673 
*
lincom [q40]agencyindzbtoplev2 * 2.673
*
lincom [q45]agencyindzbtoplev2 * 2.673
*
lincom [q50]agencyindzbtoplev2 * 2.673
*
lincom [q55]agencyindzbtoplev2 * 2.673
*
lincom [q60]agencyindzbtoplev2 * 2.673
*
lincom [q65]agencyindzbtoplev2 * 2.673
*
lincom [q70]agencyindzbtoplev2 * 2.673
*
lincom [q75]agencyindzbtoplev2 * 2.673
*
lincom [q80]agencyindzbtoplev2 * 2.673
*
lincom [q85]agencyindzbtoplev2 * 2.673
*
lincom [q90]agencyindzbtoplev2 * 2.673
*
lincom [q95]agencyindzbtoplev2 * 2.673
*
lincom [q99]agencyindzbtoplev2 * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use19.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbtoplev2 * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use19.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4C1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4C1.eps"



***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q05]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q10]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q15]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q20]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q25]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q30]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q35]zloyalmedianzbtoplev2  * 4.5765 
*
lincom [q40]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q45]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q50]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q55]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q60]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q65]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q70]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q75]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q80]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q85]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q90]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q95]zloyalmedianzbtoplev2  * 4.5765
*
lincom [q99]zloyalmedianzbtoplev2  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use20.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbtoplev2 * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use20.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
* 
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4D1.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4D1.eps"

*
* 
*
*graph E.4a
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"

gr combine FigureE4A1.gph  FigureE4B1.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4acomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4acomb.eps"

*graph E.4b
gr combine FigureE4C1.gph  FigureE4D1.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4bcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4bcomb.eps"






*********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************


 
set matsize 800           
  
*** ESTIMATE CONDITIONAL MIN - MAX [0.401 - 0.000 = 0.401] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]filipresdistzblewisfva    * 0.401
*
lincom [q05]filipresdistzblewisfva    * 0.401
*
lincom [q10]filipresdistzblewisfva    * 0.401
*
lincom [q15]filipresdistzblewisfva    * 0.401
*
lincom [q20]filipresdistzblewisfva    * 0.401
*
lincom [q25]filipresdistzblewisfva    * 0.401
*
lincom [q30]filipresdistzblewisfva    * 0.401
*
lincom [q35]filipresdistzblewisfva    * 0.401 
*
lincom [q40]filipresdistzblewisfva    * 0.401
*
lincom [q45]filipresdistzblewisfva    * 0.401
*
lincom [q50]filipresdistzblewisfva    * 0.401
*
lincom [q55]filipresdistzblewisfva    * 0.401
*
lincom [q60]filipresdistzblewisfva    * 0.401
*
lincom [q65]filipresdistzblewisfva    * 0.401
*
lincom [q70]filipresdistzblewisfva    * 0.401
*
lincom [q75]filipresdistzblewisfva    * 0.401
*
lincom [q80]filipresdistzblewisfva    * 0.401
*
lincom [q85]filipresdistzblewisfva    * 0.401
*
lincom [q90]filipresdistzblewisfva    * 0.401
*
lincom [q95]filipresdistzblewisfva    * 0.401
*
lincom [q99]filipresdistzblewisfva    * 0.401
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use21.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']filipresdistzblewisfva  * 0.401
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use21.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("|President-Senate Filibuster Pivot|", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-150(50)50, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4A2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4A2.eps"


***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 


*** ESTIMATE CONDITIONAL MIN - MAX [0.118 - 0.000 = 0.118] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q05]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q10]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q15]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q20]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q25]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q30]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q35]senpartydiffmedianlewiszbfva * 0.118 
*
lincom [q40]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q45]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q50]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q55]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q60]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q65]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q70]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q75]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q80]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q85]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q90]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q95]senpartydiffmedianlewiszbfva * 0.118
*
lincom [q99]senpartydiffmedianlewiszbfva * 0.118
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use22.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']senpartydiffmedianlewiszbfva * 0.118
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use22.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Senate Party Polarization", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-100(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4B2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4B2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [2.673 - 0.000 = 2.673] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]agencyindzbfva * 2.673
*
lincom [q05]agencyindzbfva * 2.673
*
lincom [q10]agencyindzbfva * 2.673
*
lincom [q15]agencyindzbfva * 2.673
*
lincom [q20]agencyindzbfva * 2.673
*
lincom [q25]agencyindzbfva * 2.673
*
lincom [q30]agencyindzbfva * 2.673
*
lincom [q35]agencyindzbfva * 2.673 
*
lincom [q40]agencyindzbfva * 2.673
*
lincom [q45]agencyindzbfva * 2.673
*
lincom [q50]agencyindzbfva * 2.673
*
lincom [q55]agencyindzbfva * 2.673
*
lincom [q60]agencyindzbfva * 2.673
*
lincom [q65]agencyindzbfva * 2.673
*
lincom [q70]agencyindzbfva * 2.673
*
lincom [q75]agencyindzbfva * 2.673
*
lincom [q80]agencyindzbfva * 2.673
*
lincom [q85]agencyindzbfva * 2.673
*
lincom [q90]agencyindzbfva * 2.673
*
lincom [q95]agencyindzbfva * 2.673
*
lincom [q99]agencyindzbfva * 2.673
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use23.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']agencyindzbfva * 2.673
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use23.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Decision Maker Independence", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-200(50)150, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4C2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4C2.eps"

***************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 
 
 
*** ESTIMATE CONDITIONAL MIN - MAX [4.6155 - 0.039 = 4.5765] RANGE EFFECTS [PURPOSE: EVALUATE SUBSTANTIVE NUMERICAL IMPACT OF COEFFICIENTS IN A COMPARABLE MANNER] ***

lincom [q01]zloyalmedianzbfva  * 4.5765
*
lincom [q05]zloyalmedianzbfva  * 4.5765
*
lincom [q10]zloyalmedianzbfva  * 4.5765
*
lincom [q15]zloyalmedianzbfva  * 4.5765
*
lincom [q20]zloyalmedianzbfva  * 4.5765
*
lincom [q25]zloyalmedianzbfva  * 4.5765
*
lincom [q30]zloyalmedianzbfva  * 4.5765
*
lincom [q35]zloyalmedianzbfva  * 4.5765 
*
lincom [q40]zloyalmedianzbfva  * 4.5765
*
lincom [q45]zloyalmedianzbfva  * 4.5765
*
lincom [q50]zloyalmedianzbfva  * 4.5765
*
lincom [q55]zloyalmedianzbfva  * 4.5765
*
lincom [q60]zloyalmedianzbfva  * 4.5765
*
lincom [q65]zloyalmedianzbfva  * 4.5765
*
lincom [q70]zloyalmedianzbfva  * 4.5765
*
lincom [q75]zloyalmedianzbfva  * 4.5765
*
lincom [q80]zloyalmedianzbfva  * 4.5765
*
lincom [q85]zloyalmedianzbfva  * 4.5765
*
lincom [q90]zloyalmedianzbfva  * 4.5765
*
lincom [q95]zloyalmedianzbfva  * 4.5765
*
lincom [q99]zloyalmedianzbfva  * 4.5765
*
putexcel set "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use24.xlsx", modify
local i=1
foreach h in 01 05 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 99 {
quietly lincom [q`h']zloyalmedianzbfva * 4.5765
gen pointestimates`h' = r(estimate)
gen cilower`h' = pointestimates`h' - (1.96*r(se))
gen ciupper`h' = pointestimates`h' + (1.96*r(se))
putexcel A`i'= `h'
putexcel B`i'=(r(estimate)) 
putexcel C`i'=(r(estimate) - (1.96*r(se))) 
putexcel D`i'=(r(estimate) + (1.96*r(se))) 
local i=`i'+1
}
import excel "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/use24.xlsx", sheet("Sheet1") clear

twoway (rarea C D A, color(gs10)) (line B A, color(gs0)), title("Presidential Nominee Loyalty", size(medsmall)) ytitle("Confirmation Delay (Days)") xtitle("") ylabel(-50(50)100, angle(0)) legend(off) yline(0,lcolor(gs8) lpattern(dash))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4D2.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4D2.eps"
*
*
*
*graph E.4C
cd "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E"

gr combine FigureE4A2.gph  FigureE4B2.gph, b1title("Quantiles") iscale(1) 

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4ccomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4ccomb.eps"
*
*graph E.4D
gr combine FigureE4C2.gph  FigureE4D2.gph, b1title("Quantiles") iscale(1)

graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix E/FigureE4dcomb.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix E/FigureE4dcomb.eps"





************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
 

log close





